home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Easy Regis182714122001.psc / cp.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-04-07  |  15.9 KB  |  478 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cp"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Public Sub set_system()
  17.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
  18.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  19.     '************* error
  20.     
  21.     If (Form1.cu_system(0).Value = vbChecked) Then
  22.         retval = RegSetValueEx(opened, "NoConfigPage", 0, 4, 1, 4)
  23.         '*********** error1
  24.     Else
  25.         retval = RegSetValueEx(opened, "NoConfigPage", 0, 4, 0, 4)
  26.         '*********** error1
  27.     End If
  28.     
  29.     If (Form1.cu_system(1).Value = vbChecked) Then
  30.        retval = RegSetValueEx(opened, "NoDevMgrPage", 0, 4, 1, 4)
  31.        '*********** error1
  32.     Else
  33.        retval = RegSetValueEx(opened, "NoDevMgrPage", 0, 4, 0, 4)
  34.        '*********** error1
  35.     End If
  36.     
  37.     If (Form1.cu_system(2).Value = vbChecked) Then
  38.        retval = RegSetValueEx(opened, "NoFileSysPage", 0, 4, 1, 4)
  39.        '*********** error1
  40.     Else
  41.        retval = RegSetValueEx(opened, "NoFileSysPage", 0, 4, 0, 4)
  42.        '*********** error1
  43.     End If
  44.     
  45.     If (Form1.cu_system(3).Value = vbChecked) Then
  46.        retval = RegSetValueEx(opened, "NoVirtMemPage", 0, 4, 1, 4)
  47.        '*********** error1
  48.     Else
  49.        retval = RegSetValueEx(opened, "NoVirtMemPage", 0, 4, 0, 4)
  50.        '*********** error1
  51.     End If
  52. End Sub
  53.  
  54. Public Sub set_network()
  55.     Dim create_open As Long
  56.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Network"
  57.     retval = RegCreateKeyEx(HKEY_CURRENT_USER, subkey, 0, "", 0, KEY_ALL_ACCESS, secattr, opened, create_open)
  58.     '************* error
  59.     
  60.     If (Form1.cu_network(0).Value = vbChecked) Then
  61.        retval = RegSetValueEx(opened, "NoFileSharingControl", 0, 4, 1, 4)
  62.        '*********** error1
  63.     Else
  64.        retval = RegSetValueEx(opened, "NoFileSharingControl", 0, 4, 0, 4)
  65.        '*********** error1
  66.     End If
  67.     
  68.     If (Form1.cu_network(1).Value = vbChecked) Then
  69.        retval = RegSetValueEx(opened, "NoNetSetupIDPage", 0, 4, 1, 4)
  70.        '*********** error1
  71.     Else
  72.        retval = RegSetValueEx(opened, "NoNetSetupIDPage", 0, 4, 0, 4)
  73.        '*********** error1
  74.     End If
  75.     
  76.     If (Form1.cu_network(2).Value = vbChecked) Then
  77.        retval = RegSetValueEx(opened, "NoNetSetupSecurityPage", 0, 4, 1, 4)
  78.        '*********** error1
  79.     Else
  80.        retval = RegSetValueEx(opened, "NoNetSetupSecurityPage", 0, 4, 0, 4)
  81.        '*********** error1
  82.     End If
  83. End Sub
  84.  
  85. Public Sub set_passwords()
  86.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
  87.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  88.     '************* error
  89.     
  90.     If (Form1.cu_passwords(0).Value = vbChecked) Then
  91.         retval = RegSetValueEx(opened, "NoAdminPage", 0, 4, 1, 4)
  92.     Else
  93.         retval = RegSetValueEx(opened, "NoAdminPage", 0, 4, 0, 4)
  94.         '*********** error1
  95.     End If
  96.     
  97.     If (Form1.cu_passwords(1).Value = vbChecked) Then
  98.         retval = RegSetValueEx(opened, "NoProfilePage", 0, 4, 1, 4)
  99.         '*********** error1
  100.     Else
  101.         retval = RegSetValueEx(opened, "NoProfilePage", 0, 4, 0, 4)
  102.         '*********** error1
  103.     End If
  104.     
  105.     If (Form1.cu_passwords(2).Value = vbChecked) Then
  106.         retval = RegSetValueEx(opened, "NoPwdPage", 0, 4, 1, 4)
  107.         '*********** error1
  108.     Else
  109.         retval = RegSetValueEx(opened, "NoPwdPage", 0, 4, 0, 4)
  110.         '*********** error1
  111.     End If
  112.     End Sub
  113.  
  114. Public Sub set_printers()
  115.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  116.     
  117.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  118.     '************* error
  119.     
  120.     If (Form1.cu_printers(0).Value = vbChecked) Then
  121.        retval = RegSetValueEx(opened, "NoAddPrinter", 0, 4, 1, 4)
  122.        '*********** error1
  123.     Else
  124.        retval = RegSetValueEx(opened, "NoAddPrinter", 0, 4, 0, 4)
  125.        '*********** error1
  126.     End If
  127.     
  128.     If (Form1.cu_printers(1).Value = vbChecked) Then
  129.        retval = RegSetValueEx(opened, "NoDeletePrinter", 0, 4, 1, 4)
  130.        '*********** error1
  131.     Else
  132.        retval = RegSetValueEx(opened, "NoDeletePrinter", 0, 4, 0, 4)
  133.        '*********** error1
  134.     End If
  135.     
  136.     If (Form1.cu_printers(2).Value = vbChecked) Then
  137.        retval = RegSetValueEx(opened, "NoPrinterTabs", 0, 4, 1, 4)
  138.        '*********** error1
  139.     Else
  140.        retval = RegSetValueEx(opened, "NoPrinterTabs", 0, 4, 0, 4)
  141.        '*********** error1
  142.     End If
  143. End Sub
  144.  
  145. Public Sub set_display()
  146.     
  147.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
  148.     
  149.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  150.     '************* error
  151.     If (Form1.cu_display(0).Value = vbChecked) Then
  152.         retval = RegSetValueEx(opened, "NoDispAppearancePage", 0, 4, 1, 4)
  153.         '*********** error1
  154.     Else
  155.         retval = RegSetValueEx(opened, "NoDispAppearancePage", 0, 4, 0, 4)
  156.         '*********** error1
  157.     End If
  158.     
  159.     If (Form1.cu_display(1).Value = vbChecked) Then
  160.        retval = RegSetValueEx(opened, "NoDispBackgroundPage", 0, 4, 1, 4)
  161.        '*********** error1
  162.     Else
  163.        retval = RegSetValueEx(opened, "NoDispBackgroundPage", 0, 4, 0, 4)
  164.        '*********** error1
  165.     End If
  166.     
  167.     If (Form1.cu_display(2).Value = vbChecked) Then
  168.         retval = RegSetValueEx(opened, "NoDispScrSavPage", 0, 4, 1, 4)
  169.         '*********** error1
  170.     Else
  171.         retval = RegSetValueEx(opened, "NoDispScrSavPage", 0, 4, 0, 4)
  172.         '*********** error1
  173.     End If
  174.     
  175.     If (Form1.cu_display(3).Value = vbChecked) Then
  176.        retval = RegSetValueEx(opened, "NoDispSettingsPage", 0, 4, 1, 4)
  177.        '*********** error1
  178.     Else
  179.        retval = RegSetValueEx(opened, "NoDispSettingsPage", 0, 4, 0, 4)
  180.        '*********** error1
  181.     End If
  182. End Sub
  183.  
  184. Public Sub set_start_menu()
  185.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  186.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  187.     '************* error
  188.     
  189.     If (Form1.cu_start_menu(1).Value = vbChecked) Then
  190.         retval = RegSetValueEx(opened, "NoRun", 0, 4, 1, 4)
  191.         '*********** error1
  192.     Else
  193.         retval = RegSetValueEx(opened, "NoRun", 0, 4, 0, 4)
  194.         '*********** error1
  195.     End If
  196.     
  197.     If (Form1.cu_start_menu(2).Value = vbChecked) Then
  198.         retval = RegSetValueEx(opened, "NosetTaskbar", 0, 4, 1, 4)
  199.         '*********** error1
  200.     Else
  201.         retval = RegSetValueEx(opened, "NosetTaskbar", 0, 4, 0, 4)
  202.         '*********** error1
  203.     End If
  204.     
  205.     If (Form1.cu_start_menu(3).Value = vbChecked) Then
  206.        retval = RegSetValueEx(opened, "NoFind", 0, 4, 1, 4)
  207.        '*********** error1
  208.     Else
  209.        retval = RegSetValueEx(opened, "NoFind", 0, 4, 0, 4)
  210.        '*********** error1
  211.     End If
  212.  
  213.     If (Form1.cu_start_menu(4).Value = vbChecked) Then
  214.         retval = RegSetValueEx(opened, "NoRecentDocsHistory", 0, 4, 1, 4)
  215.     Else
  216.         retval = RegSetValueEx(opened, "NoRecentDocsHistory", 0, 4, 0, 4)
  217.     End If
  218.     
  219. End Sub
  220.  
  221. Public Sub get_start_menu()
  222.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  223.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  224.         
  225.     retval = RegQueryValueEx(opened, "NoRun", 0, datatype, Lvalue_read, 4)
  226.     '*********** error1
  227.     If (Lvalue_read = 1) Then
  228.         Form1.cu_start_menu(1).Value = vbChecked
  229.         Lvalue_read = 0
  230.     End If
  231.     
  232.     retval = RegQueryValueEx(opened, "NosetTaskbar", 0, datatype, Lvalue_read, 4)
  233.     '*********** error1
  234.     If (Lvalue_read = 1) Then
  235.         Form1.cu_start_menu(2).Value = vbChecked
  236.         Lvalue_read = 0
  237.     End If
  238.     
  239.     retval = RegQueryValueEx(opened, "NoFind", 0, datatype, Lvalue_read, 4)
  240.     '*********** error1
  241.     If (Lvalue_read = 1) Then
  242.         Form1.cu_start_menu(3).Value = vbChecked
  243.         Lvalue_read = 0
  244.     End If
  245.     
  246.     retval = RegQueryValueEx(opened, "NoRecentDocsHistory", 0, datatype, Lvalue_read, 4)
  247.     If (Lvalue_read = 1) Then
  248.         Form1.cu_start_menu(4).Value = vbChecked
  249.         Lvalue_read = 0
  250.     End If
  251.     
  252. End Sub
  253.  
  254. Public Sub get_system()
  255.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
  256.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  257.     '************* error
  258.     retval = RegQueryValueEx(opened, "NoConfigPage", 0, datatype, Lvalue_read, 4)
  259.     '*********** error1
  260.     If (Lvalue_read = 1) Then
  261.         Form1.cu_system(0).Value = vbChecked
  262.         Lvalue_read = 0
  263.     End If
  264.     
  265.     retval = RegQueryValueEx(opened, "NoDevMgrPage", 0, datatype, Lvalue_read, 4)
  266.     '*********** error1
  267.     If (Lvalue_read = 1) Then
  268.         Form1.cu_system(1).Value = vbChecked
  269.         Lvalue_read = 0
  270.     End If
  271.     
  272.     retval = RegQueryValueEx(opened, "NoFileSysPage", 0, datatype, Lvalue_read, 4)
  273.     '*********** error1
  274.     If (Lvalue_read = 1) Then
  275.         Form1.cu_system(2).Value = vbChecked
  276.         Lvalue_read = 0
  277.     End If
  278.     
  279.     retval = RegQueryValueEx(opened, "NoVirtMemPage", 0, datatype, Lvalue_read, 4)
  280.     '*********** error1
  281.     If (Lvalue_read = 1) Then
  282.         Form1.cu_system(3).Value = vbChecked
  283.         Lvalue_read = 0
  284.     End If
  285.     
  286. End Sub
  287.  
  288. Public Sub get_passwords()
  289.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
  290.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  291.     '************* error
  292.     retval = RegQueryValueEx(opened, "NoAdminPage", 0, datatype, Lvalue_read, 4)
  293.     '*********** error1
  294.     If (Lvalue_read = 1) Then
  295.         Form1.cu_passwords(0).Value = vbChecked
  296.         Lvalue_read = 0
  297.     End If
  298.     
  299.     retval = RegQueryValueEx(opened, "NoProfilePage", 0, datatype, Lvalue_read, 4)
  300.     '*********** error1
  301.     If (Lvalue_read = 1) Then
  302.         Form1.cu_passwords(1).Value = vbChecked
  303.         Lvalue_read = 0
  304.     End If
  305.     
  306.     retval = RegQueryValueEx(opened, "NoPwdPage", 0, datatype, Lvalue_read, 4)
  307.     '*********** error1
  308.     If (Lvalue_read = 1) Then
  309.         Form1.cu_passwords(2).Value = vbChecked
  310.         Lvalue_read = 0
  311.     End If
  312. End Sub
  313.  
  314. Public Sub get_network()
  315.     
  316.     Dim create_open As Long
  317.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Network"
  318.     retval = RegCreateKeyEx(HKEY_CURRENT_USER, subkey, 0, "", 0, KEY_ALL_ACCESS, secattr, opened, create_open)
  319.     '************* error
  320.     retval = RegQueryValueEx(opened, "NoFileSharingControl", 0, datatype, Lvalue_read, 4)
  321.     '*********** error1
  322.     If (Lvalue_read = 1) Then
  323.         Form1.cu_network(0).Value = vbChecked
  324.         Lvalue_read = 0
  325.     End If
  326.     
  327.     retval = RegQueryValueEx(opened, "NoNetSetupIDPage", 0, datatype, Lvalue_read, 4)
  328.     '*********** error1
  329.     If (Lvalue_read = 1) Then
  330.         Form1.cu_network(1).Value = vbChecked
  331.         Lvalue_read = 0
  332.     End If
  333.     
  334.     retval = RegQueryValueEx(opened, "NoNetSetupSecurityPage", 0, datatype, Lvalue_read, 4)
  335.     '*********** error1
  336.     If (Lvalue_read = 1) Then
  337.         Form1.cu_network(2).Value = vbChecked
  338.         Lvalue_read = 0
  339.     End If
  340.     
  341. End Sub
  342.  
  343. Public Sub get_display()
  344.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
  345.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  346.     '************* error
  347.     retval = RegQueryValueEx(opened, "NoDispAppearancePage", 0, datatype, Lvalue_read, 4)
  348.     '*********** error1
  349.     If (Lvalue_read = 1) Then
  350.         Form1.cu_display(0).Value = vbChecked
  351.         Lvalue_read = 0
  352.     End If
  353.     
  354.     retval = RegQueryValueEx(opened, "NoDispBackgroundPage", 0, datatype, Lvalue_read, 4)
  355.     '*********** error1
  356.     If (Lvalue_read = 1) Then
  357.         Form1.cu_display(1).Value = vbChecked
  358.         Lvalue_read = 0
  359.     End If
  360.     
  361.     retval = RegQueryValueEx(opened, "NoDispScrSavPage", 0, datatype, Lvalue_read, 4)
  362.     '*********** error1
  363.     If (Lvalue_read = 1) Then
  364.         Form1.cu_display(2).Value = vbChecked
  365.         Lvalue_read = 0
  366.     End If
  367.     
  368.     retval = RegQueryValueEx(opened, "NoDispSettingsPage", 0, datatype, Lvalue_read, 4)
  369.     '*********** error1
  370.     If (Lvalue_read = 1) Then
  371.         Form1.cu_display(3).Value = vbChecked
  372.         Lvalue_read = 0
  373.     End If
  374.     
  375. End Sub
  376.  
  377. Public Sub get_printers()
  378.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  379.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  380.     '************* error
  381.     retval = RegQueryValueEx(opened, "NoAddPrinter", 0, datatype, Lvalue_read, 4)
  382.     '*********** error1
  383.     If (Lvalue_read = 1) Then
  384.         Form1.cu_printers(0).Value = vbChecked
  385.         Lvalue_read = 0
  386.     End If
  387.     
  388.     retval = RegQueryValueEx(opened, "NoDeletePrinter", 0, datatype, Lvalue_read, 4)
  389.     '*********** error1
  390.     If (Lvalue_read = 1) Then
  391.         Form1.cu_printers(1).Value = vbChecked
  392.         Lvalue_read = 0
  393.     End If
  394.     
  395.     retval = RegQueryValueEx(opened, "NoPrinterTabs", 0, datatype, Lvalue_read, 4)
  396.     '*********** error1
  397.     If (Lvalue_read = 1) Then
  398.         Form1.cu_printers(2).Value = vbChecked
  399.         Lvalue_read = 0
  400.     End If
  401. End Sub
  402.  
  403.  
  404.  
  405. Public Sub get_cp()
  406.    subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  407.    retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  408.    '************* error
  409.    
  410.    retval = RegQueryValueEx(opened, "NoControlPanel", 0, datatype, Lvalue_read, 4)
  411.    '*********** error1
  412.    
  413.    If (Lvalue_read = 1) Then
  414.       Form1.cu_cp.Value = vbChecked
  415.       Lvalue_read = 0
  416.    Else
  417.       retval = RegQueryValueEx(opened, "NoSetFolders", 0, datatype, Lvalue_read, 4)
  418.       '*********** error1
  419.       
  420.       If (Lvalue_read = 1) Then
  421.          Form1.cu_cp.Value = vbChecked
  422.          Lvalue_read = 0
  423.       End If
  424.    End If
  425. End Sub
  426.  
  427. Public Sub set_cp()
  428.    
  429.    Dim create_open As Long
  430.    subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  431.    
  432.    retval = RegCreateKeyEx(HKEY_CURRENT_USER, subkey, 0, "", 0, KEY_ALL_ACCESS, secattr, opened, create_open)
  433.    '************* error
  434.    
  435.    If (Form1.cu_cp.Value = vbChecked) Then
  436.        retval = RegSetValueEx(opened, "NoControlPanel", 0, 4, 1, 4)
  437.        '*********** error1
  438.        retval = RegSetValueEx(opened, "NoSetFolders", 0, 4, 1, 4)
  439.        '*********** error1
  440.        Lvalue_read = 0
  441.    Else
  442.        retval = RegSetValueEx(opened, "NoControlPanel", 0, 4, 0, 4)
  443.        '*********** error1
  444.        retval = RegSetValueEx(opened, "NoSetFolders", 0, 4, 0, 4)
  445.        '*********** error1
  446.        Lvalue_read = 0
  447.     End If
  448. End Sub
  449.  
  450. Public Sub get_disable()
  451.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
  452.  
  453.    retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  454.    '************* error
  455.    
  456.    retval = RegQueryValueEx(opened, "DisableRegistryTools", 0, datatype, Lvalue_read, 4)
  457.    '*********** error1
  458.    
  459.    If (Lvalue_read = 1) Then
  460.       Form1.disable_registry.Value = vbChecked
  461.       Lvalue_read = 0
  462.    End If
  463. End Sub
  464.  
  465. Public Sub set_disable()
  466.     subkey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
  467.     retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_ALL_ACCESS, opened)
  468.     '************* error
  469.     
  470.     If (Form1.disable_registry.Value = vbChecked) Then
  471.         retval = RegSetValueEx(opened, "DisableRegistryTools", 0, 4, 1, 4)
  472.         '*********** error1
  473.     Else
  474.         retval = RegSetValueEx(opened, "DisableRegistryTools", 0, 4, 0, 4)
  475.         '*********** error1
  476.     End If
  477. End Sub
  478.